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DECUS Program Library Write-up 


DECUS NO. 8-471 


Program to Verify Paper Tape 

The purpose of this program is to verify that a tape is the 
same as the one from which it was copied or that two copies 
of a tape are the same. It is applicable to a PDP--S system 
having at least 12K core. 


Procedure 


1. Set Instruction field to 0. 


3. 

4 . 

5- 

6 . 


Load the program in Data field 0. 

Load the known tape in Data field 1. 

Load the tape to be verified in Data field 2. 

In the first location after the last location on the known 
tape deposit some known number, i:e. data field 1 inst field 
1 deposit XXXX. 


In the same location in Data field 2 deposit some other known 
number, i.e. Data field 2 inst field 2 deposit YYYY. 


7. Load add 0200 Data field 0 inst field 0. 

8. Put up switches corresponding to the starting location 
of the tape. 


9. Press start. 


Results 

1. Program halts in the first location where a difference 
between the tapes occurs. 

2. Press continue AC shows contents of location of the halt 

from the known tape. 

MQ shows contents of location of the halt 
from the tape to be verified. 

3. Press continue again. 

Computer will halt at the next location where there is a differenc 

4-. Press continue again - AC and MQ will be as above. 

If the halt has occurred in the final location plus one where 
you have deposited the known numbers 

Press continue AC XXXX (known number) 

MQ YYYY (known number) 

The tape has been verified. 








Example 


Known tape starting address 20 
final address 7776 

Procedure - tapes are loaded 

Step 5 - DF 1 IF 1 locn 7777 deposit 7234 

Step 6 - DF 2 IF 2 locn 7777 deposit 4327 

Step 7 - DF 0 IF 0 LA 020C 

Step 8 - Set SR to 0020 

Step 9 - start 

Compu t er H alts 
Locn 7214 

Press continue AC 4375 MQ 4296 

Content of Content of tape 

known tape to be verified 

Halt is not in 7777 tapes do not check. 

Computer Halts 

Locn 7777 

Press continue AC 7234 

MQ 4327 

These are number inserted Tapes check and the tape being verified 
is identical to the known tape. 
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Te st ? r oprran to 


0 "1 -P T T T, 0 1 


1 to Bank 2. 


Program resides in Bank 0. 


Starting address 


200 start 
1 
2 

3 

4 Begin 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

1? Index 
20 
21 

22 ADR 1 

23 ADR 2 

24 Save 1 

25 Save 2 

26 Display 

27 

30 

31 

32 

33 

34 

35 

36 

37 


LAS 

7604 

DCA ADR 1 

3222 

TAD ADR 1 

"1 /->/'■> Z'-' 

XdCC 

DCA ADR 2 * 

3223 

CDF 1 

6211 

TAD, I ADR 1 

1622 

r-CA Save 1 

3224 

CDF 2 

6221 

TAD, I ADR 2 

1623 

DCA Save 2 

3225 

TAD Save 2 

1225 

CIA 

7041 

TAD Save 1 

1224 

S2A CLA 

7640 

JMP Display 

5226 

ISZ ADR 1 

r* r* 

ISZ ADR 2 

2223 

JMP Begin 

5204 

0 

r\ 

0 

0 

MQL 7421 

TAD ADR 1 

1222 

7402 

7402 

CLR 

7200 

TAD Save 2 

1225 

MQL 

7421 

TAD Save 1 

1224 

7402 

7402 

CLR 

7200 

J Index 

5217 
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